#!/usr/bin/perl

use strict;
use warnings;
use Proc::Daemon;

my $daemon = Proc::Daemon->new(
        work_dir     => '/home/services/cbbot/2.0/',
        child_STDOUT => 'output',
        child_STDERR => 'debug',
        pid_file     => 'pid',
        exec_command => 'perl /home/services/cbbot/2.0/CBBOT/Spawn.pl',
);

my $pid = $daemon->Init();

